home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 July / 1993-07.d64 / flasher 64.demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  40 lines
  1. 10 rem flasher 64 demo
  2. 15 print"[147]"
  3. 20 poke53280,0:poke53281,0
  4. 30 ifl=0thenl=1:load"flasher 64.ml",8,1
  5. 40 sys52224:rem turn on flasher 64
  6. 50 :
  7. 60 printchr$(147);:rem clears screens
  8. 70 print"           [158]demo of flasher 64"
  9. 80 print
  10. 90 print"use the command: printchr$(15)  to turn on flashing"
  11. 100 print"[159]eg:[146]  printchr$(15)"chr$(34)"flasher now on"chr$(34)
  12. 110 printchr$(15)"flasher now on":rem command to turn on flashing
  13. 120 ford=1to6000:next
  14. 130 print:print"use the command: printchr$(143)  to turn off flashing."
  15. 140 print"[159]eg:[146]  printchr$(15)"chr$(34)"flash on"chr$(34)"chr$(143)"chr$(34);
  16. 150 print" flash off"chr$(34)"
  17. 160 [153][199](15)"flash on"[199](143)" flash off"
  18. 170 [129]d[178]1[164]6000:[130]:[143] delay loop
  19. 180 [153]:[153]"use the command: printchr$(15)"[199](34)"sinsinsinsinsinsinsin"[199](34);
  20. 190 [153]"to turn off a flashing word."
  21. 200 [153]:[153]"openeg:wait  printchr$(15)"[199](34)"flash on"[199](34):[153]
  22. 210 [153][199](15)"flash on"
  23. 220 [129]d[178]1[164]3000:[130]:[143] delay loop
  24. 230 [153]:[153]"openeg:wait  printchr$(15)"[199](34)"sinsinsinsinsinsinsin"[199](34);
  25. 240 [153]"to turn off a flashing word."
  26. 250 [143] ifpeek(146)<>1then140:peek this location for on or off cycle
  27. 260 [143] if peek(146)=1 then characters are on screen
  28. 270 [143] if peek(146)=0 then characters are off screen
  29. 280 :
  30. 290 [139][194](146)[179][177]1[167]250:[143] ^
  31. 300 [153]"onononon";:[143] move up to word
  32. 310 [153][199](15)"sinsinsinsinsinsinsinsin"
  33. 320 [129]d[178]1[164]6000:[130]:[143] delay loop
  34. 330 [153]:[153]:[153]
  35. 340 [153]"scroll flashing characters off screen"
  36. 350 [129]x[178]1[164]24:[129]d[178]1[164]25:[130]d:[153]:[130]x
  37. 360 [153]"***********"[199](15)" clrthats all folks!wait "[199](143)"***********open"
  38. 370 [129]x[178]1[164]50:[130]
  39. 380 [155]10[171]50
  40.